home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Myers-Briggs.cpt / Meyers-Briggs Personality Test / card_12617.txt < prev    next >
Text File  |  1990-12-02  |  4KB  |  209 lines
  1. -- card: 12617 from stack: in
  2. -- bmap block id: 3314
  3. -- flags: 0000
  4. -- background id: 2097
  5. -- name: Welcome
  6.  
  7.  
  8. -- part 10 (field)
  9. -- low flags: 00
  10. -- high flags: 0004
  11. -- rect: left=160 top=254 right=274 bottom=339
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Name
  20.  
  21.  
  22. -- part 11 (button)
  23. -- low flags: 00
  24. -- high flags: 8003
  25. -- rect: left=68 top=308 right=330 bottom=168
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Begin
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global Enum, Inum, Snum, Nnum, Tnum, Fnum, Pnum, Jnum, StudName
  37.   if card field "Name" is empty then
  38.     beep
  39.     ask "Please type in your name"
  40.     put it into card field "Name"
  41.   end if
  42.   push card
  43.   show card field 3
  44.   put 0 into Enum
  45.   put 0 into Inum
  46.   put 0 into Snum
  47.   put 0 into Nnum
  48.   put 0 into Tnum
  49.   put 0 into Fnum
  50.   put 0 into Pnum
  51.   put 0 into Jnum
  52.   set lockScreen to true
  53.   go to card "Summary"
  54.   put 0 into card field "Esum"
  55.   put 0 into card field "Isum"
  56.   put 0 into card field "Ssum"
  57.   put 0 into card field "Nsum"
  58.   put 0 into card field "Tsum"
  59.   put 0 into card field "Fsum"
  60.   put 0 into card field "Jsum"
  61.   put 0 into card field "Psum"
  62.   pop card
  63.   set lockScreen to false
  64.   hide card field 3
  65.   put card field "Name" into StudName
  66.   visual effect scroll right
  67.   go to card "First"
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 12 (button)
  73. -- low flags: 00
  74. -- high flags: 8003
  75. -- rect: left=202 top=308 right=330 bottom=302
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Quit
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   go to stack "Home"
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 13 (button)
  92. -- low flags: 00
  93. -- high flags: 8003
  94. -- rect: left=334 top=307 right=329 bottom=434
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Help
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   push card
  106.   go to card "Help"
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 14 (button)
  112. -- low flags: 00
  113. -- high flags: 0000
  114. -- rect: left=70 top=32 right=107 bottom=139
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 1019 / 1019
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: New Button
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   show card field "Joke"
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 15 (field)
  131. -- low flags: 81
  132. -- high flags: 0004
  133. -- rect: left=16 top=94 right=183 bottom=153
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Joke
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   hide Card Field "Joke"
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 16 (field)
  150. -- low flags: 81
  151. -- high flags: 0004
  152. -- rect: left=18 top=199 right=253 bottom=152
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: 
  161.  
  162.  
  163. -- part contents for card part 8
  164. ----- text -----
  165. 12
  166.  
  167. -- part contents for card part 4
  168. ----- text -----
  169. 8
  170.  
  171. -- part contents for card part 2
  172. ----- text -----
  173. 11
  174.  
  175. -- part contents for card part 5
  176. ----- text -----
  177. 11
  178.  
  179. -- part contents for card part 3
  180. ----- text -----
  181. 8
  182.  
  183. -- part contents for card part 7
  184. ----- text -----
  185. 4
  186.  
  187. -- part contents for card part 6
  188. ----- text -----
  189. 5
  190.  
  191. -- part contents for card part 1
  192. ----- text -----
  193. 5
  194.  
  195. -- part contents for card part 15
  196. ----- text -----
  197. You just couldn't resist clicking this 
  198. "Jack", could you?
  199. Click this box and I'll hide myself.
  200.  
  201.  
  202. -- part contents for card part 16
  203. ----- text -----
  204. One moment while I take care of a few 
  205. "Start-Up" tasks.
  206.  
  207. -- part contents for card part 10
  208. ----- text -----
  209. Bill Garrett